unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CnMD5,CnSHA1;

type
  TForm1 = class(TForm)
    Btnv_1: TButton;
    Btnv_2: TButton;
    Btnv_3: TButton;
    procedure Btnv_1Click(Sender: TObject);
    procedure Btnv_2Click(Sender: TObject);
    procedure Btnv_3Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

uses
  Class_KzUtils,Class_KzDebug;

{$R *.dfm}

procedure TForm1.Btnv_1Click(Sender: TObject);
var
  OD:TOpenDialog;
begin
  try
    OD:=TOpenDialog.Create(nil);
    if OD.Execute then
    begin
      KzDebug.FileLog(CnSHA1.SHA1Print(SHA1File(od.FileName)));
    end;
  finally
    FreeAndNil(OD);
  end;
end;

procedure TForm1.Btnv_2Click(Sender: TObject);
begin
  TKzUtils.Explore;
end;

procedure TForm1.Btnv_3Click(Sender: TObject);
var
  OD:TOpenDialog;
begin
  try
    OD:=TOpenDialog.Create(nil);
    if OD.Execute then
    begin
      KzDebug.FileLog(CnMD5.MD5Print(MD5File(OD.FileName)));
    end;
  finally
    FreeAndNil(OD);
  end;
end;

end.
